home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 11,000 to 11,999
/
11000.zip
/
AOLDLs
/
WIN Tools & Treiber
/
SCRIPT.exe
/
skript3.txt
< prev
next >
Wrap
Text File
|
1998-12-21
|
625b
|
23 lines
Dim myfsObject
Dim myFileList
Dim myFolder
Dim myFile
Dim m3uFile
Set WSHShell=WScript.CreateObject("WScript.Shell")
Set Shell=WScript.CreateObject("Shell.Application")
On Error Resume Next
Set myfsObject=CreateObject("Scripting.FileSystemObject")
Set myFolder=myfsObject.GetFolder("\\PILSBAR\Musik")
Set myFileList=myFolder.Files
Set m3uFile=myfsObject.CreateTextFile("\\PILSBAR\Musik\TEST.m3u", 1)
For Each myFile in myFileList
if (instr(myFile.Name, "Kinks")<>0) AND LCase(right(myFile.Name, 3))="mp3" then
m3uFile.WriteLine(myFile.Name)
end if
Next
m3uFile.Close
WSHShell.popup "Fertig..."